home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _patience / test < prev   
Encoding:
Text File  |  1990-09-15  |  628 b   |  37 lines
  1. DIM data &10000,param 10:!data=&10000
  2. SYS "OS_SpriteOp",266,data,"@.Cards"
  3.  
  4. MOUSE STEP 2
  5. REM Select sprite returning address
  6. SYS "OS_SpriteOp",280,data,"pointer" TO ,,data%
  7. *FX220 9
  8.  
  9. FORI%=0 TO 15
  10. READR,G,B
  11. COLOURI%,R,G,B
  12. NEXT
  13. VDU19,0,24,0,&90,0
  14.  
  15. P%=param
  16. [OPT 0
  17. EQUB 0
  18. EQUB 2
  19. EQUB 8
  20. EQUB 31
  21. EQUB 15
  22. EQUB 15
  23. EQUB data%+44
  24. ]
  25.  
  26. SYS "OS_Word",21,param
  27. *FX106,2
  28.  
  29. MOUSECOLOUR1,0,0,0
  30. MOUSECOLOUR2,200,0,0
  31. MOUSECOLOUR3,0,&90,0
  32.  
  33. DATA&00,&90,&00,&E0,&E0,&E0,&A0,&A0,&A0,&80,&80,&80
  34. DATA&60,&60,&60,&C0,&C0,&80,&00,&00,&00,&C0,&C0,&A0
  35. DATA&D0,&30,&70,&00,&F0,&F0,&F0,&F0,&00,&F0,&00,&00
  36. DATA&F0,&80,&10,&30,&30,&80,&20,&80,&A0,&F0,&F0,&F0
  37.